home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abc.d64 / catalogue.instr (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  21KB  |  556 lines
  1. 10 PRINT"[147]THIS PROGRAM IS AVAILABLE IN ENGLISH."
  2. 20 PRINT"PLEASE SEND $5.00 TO THE AUTHOR:"
  3. 30 PRINT"CLAUDE LELIEVRE"
  4. 40 PRINT"1220 CHAMONIX"
  5. 50 PRINT"CHARLESBOURG. P.Q."
  6. 60 PRINT"CANADA. G1H 6N4"
  7. 160 GOSUB 61160
  8. 910 IFA=0THEN1000
  9. 920 IFA=1THENGOTO62000
  10. 1000 POKE53280,15:POKE53281,15
  11. 1010 PRINT"[147]CATALOGUE DE DISQUETTES V871201[144]"
  12. 1020 PRINT"CE PROGRAMME EST DISTRIBUE COMME":PRINT"GIFTWARE"
  13. 1030 PRINT"VOUS POUVEZ LE COPIER AUTANT DE FOIS QUE";
  14. 1040 PRINT"VOUS LE DESIREZ ET EN [149]DONNER[144] DES COPIES"
  15. 1050 PRINT"A TOUT LE MONDE. SI VOUS APPRECIEZ"
  16. 1060 PRINT"L'UTILITE DE CE PROGRAMME VOUS POUVEZ   ENVOYER UN DON DE $5. A L'AUTEUR"
  17. 1080 PRINTSPC(10)"CLAUDE LELIEVRE"
  18. 1090 PRINTSPC(11)"1220 CHAMONIX"
  19. 1100 PRINTSPC(11)"CHARLESBOURG"
  20. 1110 PRINTSPC(12)"P.Q. CANADA"
  21. 1120 PRINTSPC(14)"G1H 6N4"
  22. 1130 PRINT"[144]VOS SUGGESTIONS ET DEMANDES SPECIALES"
  23. 1140 PRINT"SONT BIENVENUES.  UNE VERSION AMELIOREE"
  24. 1150 PRINT"POURRAIT ETRE PRODUITE SI LA DEMANDE"
  25. 1155 PRINT"EXISTE."
  26. 1160 GOSUB 61160
  27. 2000 PRINT"[147]";SPC(10);"INSTRUCTIONS:[144]"
  28. 2010 PRINT"   CE PROGRAMME PERMET DE FAIRE  "
  29. 2020 PRINT"L'INVENTAIRE DE VOTRE BIBLIOTHEQUE"
  30. 2030 PRINT"DE DISQUES.  LE NOMBRE DE DIRECTOIRES"
  31. 2040 PRINT"QUE L'ON PEUT CLASSER DEPEND DE LA"
  32. 2050 PRINT"LONGUEUR TOTALE DE CEUX-CI.  ON PEUT"
  33. 2070 PRINT"UTILISER UNE OU DEUX UNITES DE DISQUES."
  34. 2080 PRINTSPC(15)"[151]DEBUT[144]"
  35. 2090 PRINT"   LA PREMIERE OPERATION QUI EST FAITE"
  36. 2100 PRINT"PAR LE PROGRAMME EST DE LIRE LE"
  37. 2110 PRINT"FICHIER [156]MASTER DIRECT[144] QUI CONTIENT"
  38. 2120 PRINT"LE FICHIER DIRECTOIRE MAITRE.  LA     "
  39. 2130 PRINT"PREMIERE FOIS QUE LE PROGRAMME EST"
  40. 2140 PRINT"EXECUTE, CE FICHIER N'EXISTERA PAS."
  41. 2150 PRINT"LA LUMIERE ROUGE DE L'UNITE DE DISQUE"
  42. 2160 PRINT"CLIGNOTERA POUR CETTE RAISON.  PUIS"
  43. 2170 PRINT"LE MENU PRINCIPAL APPARAITRA A L'ECRAN."
  44. 2173 PRINT"LE FICHIER RELATIF DIRECTORY[146] DOIT ETRE"
  45. 2175 PRINT"CREE PAR L'USAGER EN UTILISANT L'OPTION"
  46. 2176 PRINT"APPROPRIEE."
  47. 2180 GOSUB 61160
  48. 3000 PRINT"[147]"SPC(10)"OPTIONS[144]"
  49. 3010 PRINT"0.  FIN: CHARGE CATALOGUE[144]"
  50. 3020 PRINT"1.  CLAVIER ET CHOIX DES OPTIONS[144]"
  51. 3030 PRINT"2.  [129]DIRECTOIRE MAITRE[144]"
  52. 3040 PRINT"3.  [149]FICHIER RELATIF[144]"
  53. 3050 PRINT"4.  [150]FICHIER GLOBAL[144]"
  54. 3060 PRINT"5.  [152]LISTES DIVERSES[144]"
  55. 3070 PRINT"6.  [151]OPTIONS RELIEES AU DISQUE[144]"
  56. 3080 PRINT"7.  COMMENTAIRES[144]"
  57. 3090 PRINT"8.  [154]CHERCHE FICHIER SPECIFIQUE[144]"
  58. 3100 PRINT"9.  [156]MODIFICATION DES PARAMETRES[144]"
  59. 3110 PRINT"10. OPTIONS SPECIALES:[144]"
  60. 3130 PRINT"11. [129]CHOIX: ECRAN/IMPRIMANTE[144]"
  61. 3140 PRINT"12. [149]LIT DIRECTOIRE D'UN DISQUE[144]"
  62. 3145 PRINT"13. [150]MEMOIRE[144]"
  63. 3150 PRINT"ENTREZ VOTRE SELECTION: 0 A 9"
  64. 3200 INPUT A$:IFA$=""THEN3200
  65. 3300 A=VAL(A$)+1:IFA<1ORA>15THEN3200
  66. 3400 ONAGOTO10000,11000,12000,13000,20000,21000,14000,22000,23000,16000,3500
  67. 3500 ON(A-10)GOTO 24000,25000,26000,27000,28000
  68. 10000 GOTO62000
  69. 11000 PRINT"[147]CLAVIER ET CHOIX DES OPTIONS[144]"
  70. 11010 PRINT"LES CLES DU CURSEUR SONT UTILISEES POUR"
  71. 11020 PRINT"CHOISIR LES OPTIONS"
  72. 11030 PRINT"CURSEUR EN BAS[144]: DEPLACE LA LIGNE"
  73. 11040 PRINT"    D'OPTION UNE LIGNE VERS LE BAS"
  74. 11050 PRINT"CURSEUR EN HAUT[144]: DEPLACE LA LIGNE"
  75. 11060 PRINT"    D'OPTION UNE LIGNE VERS LE HAUT"
  76. 11070 PRINT"RETURN[144]: CHOISIT COMME OPTION LA LIGNE."
  77. 11080 PRINT"A L'INTERIEUR DE CERTAINES OPTIONS"
  78. 11090 PRINT"OU L'ON MONTRE UNE PAGE D'INFORMATION"
  79. 11100 PRINT"LE CURSEUR SERT A SE DEPLACER D'UNE PAGE";
  80. 11110 PRINT"VERS L'AVANT OU L'ARRIERE."
  81. 11120 PRINT"AFIN DE FACILITER LES OPERATIONS"
  82. 11130 PRINT"LA CLE [156]CURSEUR A DROITE[144] FAIT LES MEMES"
  83. 11140 PRINT"FONCTIONS QUE LA CLE CURSEUR EN HAUT."
  84. 11150 PRINT"DE PLUS ON PEUT UTILISER LA MANETTE #2:"
  85. 11160 PRINT"POUSSANT CELLE-CI VERS LE HAUT OU LE BAS";
  86. 11170 PRINT"ON EXECUTE LA FONCTION CORRESPONDANT A"
  87. 11180 PRINT"CELLE DU CURSEUR.  LE BOUTON [149]FEU[144] AGIT"
  88. 11190 PRINT"COMME RETURN[144]."
  89. 11200 GOSUB61160
  90. 11300 PRINT"[147]FONCTIONS SPECIALES:[144]"
  91. 11310 PRINT"CURSEUR A GAUCHE[144] OU DEL[144]: EFFACE LE"
  92. 11320 PRINT"  CARACTERE A SA GAUCHE"
  93. 11330 PRINT"F1[146]: COULEUR DU BORD +1"
  94. 11340 PRINT"F2[146]: COULEUR DU BORD -1"
  95. 11350 PRINT"F3[146]: COULEUR DU FOND +1"
  96. 11360 PRINT"F4[146]: COULEUR DU FOND -1"
  97. 11370 PRINT"F5[146]: COULEUR DES CARACTERES +1"
  98. 11380 PRINT"F6[146]: COULEUR DES CARACTERES -1"
  99. 11390 PRINT"RESTORE[144]: REVIENT AU MENU PRINCIPAL"
  100. 11400 PRINT"[154]STOP[144]: POUR CERTAINES OPERATIONS RELIEES AU FICHIER GLOBAL: ARRET."
  101. 11500 GOSUB61160:GOTO3000
  102. 12000 PRINT"[147][129]DIRECTOIRE MAITRE[144]"
  103. 12010 PRINT"LE DIRECTOIRE MAITRE EST PRESENT EN"
  104. 12020 PRINT"EN MEMOIRE ET SUR DISQUE SOUS"
  105. 12030 PRINT"LE NOM DE [150]MASTER DIRECT[144].  AFIN "
  106. 12040 PRINT"D'EXECUTER PLUS RAPIDEMENT, LE "
  107. 12050 PRINT"PROGRAMME N'EFFECTUE PAS LA MISE A JOUR"
  108. 12060 PRINT"DE CE FICHIER SUR DISQUE.  CEPENDANT,"
  109. 12070 PRINT"L'USAGER DEVRA TOUJOURS S'ASSURER DE"
  110. 12080 PRINT"SAUVER SUR DISQUE LE NOUVEAU DIRECTOIRE"
  111. 12090 PRINT"MAITRE AVANT DE TERMINER L'EXECUTION"
  112. 12100 PRINT"DU PROGRAMME OU DE FERMER L'ORDINATEUR."
  113. 12110 PRINT"CETTE OPERATION S'EFFECTUE SIMPLEMENT"
  114. 12120 PRINT"EN CHOISISSANT L'OPTION SAUVE LE DIREC- TOIRE MAITRE[144]."
  115. 12170 PRINT"  POUR PLUS DE SECURITE, L'OPTION   "
  116. 12180 PRINT"RETOUR AU BASIC[144] DEMANDE SI ON DESIRE"
  117. 12190 PRINT"SAUVER LE DIRECTOIRE MAITRE SUR DISQUE."
  118. 12200 GOSUB61160
  119. 12210 PRINT"[147]LES SOUS-OPTIONS SONT:"
  120. 12220 PRINT"- RETOUR AU MENU PRINCIPAL"
  121. 12230 PRINT"- LECTURE DU DIRECTOIRE MAITRE A PARTIR"
  122. 12240 PRINT"  DU DISQUE.  SI DES DIRECTOIRES DE"
  123. 12250 PRINT"  DISQUES ONT ETE LUS DEPUIS LA DERNIERE";
  124. 12260 PRINT"  FOIS OU ON A SAUVE LE DIRECTOIRE"
  125. 12270 PRINT"  MAITRE, CEUX-CI SERONT EFFACES DE LA
  126. 12280 [153]"  MEMOIRE DE FACON DEFINITIVE."
  127. 12290 [153]"- SAUVE DIRECTOIRE MAITRE SUR DISQUE."
  128. 12300 [153]"- LIT DIRECTOIRE D'UN NOUVEAU DISQUE."
  129. 12310 [153]"- LISTE DES DIRECTOIRES PRESENTS EN "
  130. 12320 [153]"  MEMOIRE."
  131. 12330 [153]"- DETRUIT DIRECTOIRES EN MEMOIRE: POUR"
  132. 12340 [153]"  QUE LE CHANGEMENT SOIT PERMANENT IL"
  133. 12350 [153]"  FAUT SAUVER LE DIRECTOIRE MAITRE SUR "
  134. 12360 [153]"  DISQUE."
  135. 12500 [141]61160
  136. 12610 [137]3000
  137. 13000 [153]"LOADVERIFYFICHIER RELATIFSTOP"
  138. 13010 [153]"LES DIRECTOIRES DE CHACUN DES DISQUES"
  139. 13020 [153]"DEJA CATALOGUES SONT SUR LE DISQUE "
  140. 13030 [153]"MAITRE A L'INTERIEUR DU FICHIER RELATIF"
  141. 13040 [153]"CLRDIRECTORYSTOP.  CE FICHIER DOIT ETRE"
  142. 13050 [153]"CREE PAR L'USAGER POUR QUE LE PROGRAMME
  143. 13060 PRINT"FONCTIONNE.  LES PARAMETRES DE CREATION
  144. 13070 [153]"DU FICHIER PEUVENT ETRE MODIFIES."
  145. 13080 [153]"LES SOUS-OPTIONS SONT:"
  146. 13090 [153]"- RETOUR AU MENU PRINCIPAL."
  147. 13095 [153]"- CREATION DU FICHIER RELATIF DIRECTORYWAIT."
  148. 13100 [153]"- ECRITURE DU DERNIER RECORD: POUR"
  149. 13130 [153]"  QUE LE PROGRAMME EXECUTE PLUS"
  150. 13140 [153]"  RAPIDEMENT LES OPERATIONS D'ECRITURE
  151. 13150 PRINT"  SUR DISQUE IL EST PREFERABLE DE CREER"
  152. 13160 PRINT"  D'AVANCE UN CERTAIN NOMBRE DE RECORDS.";
  153. 13170 PRINT"- MODIFICATION DES PARAMETRES RELIES AU
  154. 13180 [153]"  FICHIER RELATIF"
  155. 13400 [141]61160
  156. 13500 [141]13600:[137] 3000
  157. 13600 [153]"LOADPARAMETRES DU FICHIER RELATIFSTOP"
  158. 13610 [153]"- NOMBRE MAXIMAL DE RECORDS.
  159. 13630 PRINT"- LONGUEUR DU RECORD.
  160. 13640 [153]" LE CHOIX DU NOMBRE MAXIMAL DE RECORDS
  161. 13641 PRINT"EST IMPORTANT: POUR ACCELERER LES
  162. 13642 [153]"OPERATIONS SUR DISQUE IL VAUT MIEUX
  163. 13643 PRINT"AVOIR DEJA CREE PLUSIEURS RECORDS
  164. 13644 [153]"D'AVANCE DANS LE FICHIER RELATIF."
  165. 13645 [153]" LA LONGUEUR DU RECORD CHOISIE
  166. 13646 PRINT"INFLUENCE L'ESPACE PERDU SUR DISQUE:"
  167. 13647 PRINT"SI LES DIRECTOIRES SONT PETITS ET QUE
  168. 13648 [153]"LES RECORDS SONT GRANDS, IL Y AURA ALORS";
  169. 13649 [153]"BEAUCOUP DE PERTE D'ESPACE DISQUE."
  170. 13650 [153]"UNE TROP PETITE LONGUEUR DE RECORD VA
  171. 13651 PRINT"AUGMENTER LES PERTES DANS LE FICHIER
  172. 13652 [153]"SEQUENTIEL OU SE TROUVENT LES POINTEURS
  173. 13653 PRINT"DES RECORDS."
  174. 13654 PRINT" IL EST IMPORTANT DE FAIRE DES COPIES
  175. 13655 [153]"REGULIEREMENT DE SON DISQUE DE TRAVAIL
  176. 13656 PRINT"CAR SI LE DISQUE DEVIENT TROP PLEIN LE
  177. 13657 [153]"PROGRAMME NE POURRA ECRIRE LE FICHIER
  178. 13658 PRINT"SEQUENTIEL ET TOUTE L'INFORMATION SERA
  179. 13659 [153]"PERDUE.ON"
  180. 13660 [141]61160
  181. 13664 [153]"LOAD- CHOIX ENTRE AVOIR LA LISTE DES
  182. 13665 PRINT"  DIRECTOIRES TRIEE EN ORDRE ALPHANU-
  183. 13670 [153]"  MERIQUE CROISSANT OU NON TRIEE.
  184. 13680 PRINT" L'ABSENCE DE TRI ACCELERE LE PROGRAMME"
  185. 13690 PRINT" MAIS LES LISTES DES DIRECTOIRES SONT
  186. 13700 [153]" ALORS TELLES QU'ELLES APPARAISSENT
  187. 13710 PRINT" SUR LES DIRECTOIRES DES DISQUES."
  188. 13720 PRINT"- NOMBRE MAXIMAL DE DIRECTOIRES."
  189. 13730 PRINT"L'UTILISATEUR PEUT FIXER LUI-MEME LE
  190. 13740 [153]"NOMBRE DE DISQUES QUI PEUVENT ETRE
  191. 13750 PRINT"CATALOGUES AVANT QUE LE PROGRAMME NE
  192. 13760 [153] "REFUSE D'EN CATALOGUER D'AUTRES.  CETTE
  193. 13770 PRINT"OPTION EST UTILE AFIN D'EVITER DE
  194. 13780 [153] "SURCHARGER LE DISQUE DE TRAVAIL ET
  195. 13790 PRINT "D'AVOIR DE SERIEUX PROBLEMES."
  196. 13900 GOSUB61160:RETURN
  197. 14000 PRINT"[147][150]OPERATIONS SUR DISQUE[144]"
  198. 14005 PRINT"LES SOUS-OPTIONS SONT:"
  199. 14008 PRINT"- RETOUR AU MENU PRINCIPAL.
  200. 14010 [153]"- LECTURE DU CANAL D'ERREUR
  201. 14050 PRINT"- ENV0IE COMMANDES AU DISQUE:"
  202. 14080 PRINT"  N:NOM,ID[144]: FORMATTE LE DISQUE"
  203. 14090 PRINT"  S:NOM[144]: PURGE LE FICHIER NOM[146]"
  204. 14100 PRINT"  R:NOM1=NOM2[144]: RENOMME LE FICHIER"
  205. 14110 PRINT"     NOM2[146] EN NOM1[146]"
  206. 14120 PRINT"  C:NOM1=NOM2[144]: COPIE LE FICHIER"
  207. 14130 PRINT"     NOM2[146] SUR LE FICHIER NOM1"
  208. 14140 PRINT"  I[144]: INITIALISE L'UNITE DE DISQUE"
  209. 14150 PRINT"  V[144]: VALIDE LE BAM DU DISQUE"
  210. 14155 PRINT"- LIT DIRECTOIRE D'UN DISQUE"
  211. 14156 PRINT"- MODIFICATION DES PARAMETRES RELIES
  212. 14157 [153]"  AUX OPERATIONS SUR DISQUE.
  213. 14160 GOSUB61160:GOSUB 14200:GOTO 3000
  214. 14200 PRINT"[147][156]MODIFICATIONS DES PARAMETRES GENERAUX:[144]
  215. 14210 [153]" -UNITE D'IMPRESSION: 3 = ECRAN
  216. 14215 PRINT"                      4 = IMPRIMANTE
  217. 14220 [153]"- IMPRIMANTE #APPAREIL: EN GENERAL 4.
  218. 14230 PRINT"- IMPRIMANTE #ADRESSE SECONDAIRE"
  219. 14231 PRINT" LES VALEURS SUIVANTES SERVENT LORS
  220. 14232 [153]"DES OPERATIONS DE LISTE OU DE
  221. 14233 PRINT"CONSTRUCTION D'UN FICHIER GLOBAL:"
  222. 14235 PRINT"- #FICHIER DE DEBUT: OCTET INFERIEUR"
  223. 14236 PRINT"- #FICHIER DE DEBUT: OCTET SUPERIEUR"
  224. 14237 PRINT"- #FICHIER DE FIN:   OCTET INFERIEUR"
  225. 14238 PRINT"- #FICHIER DE FIN:   OCTET SUPERIEUR"
  226. 14239 GOSUB61160
  227. 14240 PRINT"[147]UNITE DISQUE #1 (MAITRE)[146]: VAUT DE 8 A"
  228. 14250 PRINT" 11. CETTE UNITE CORRESPOND TOUJOURS AU"
  229. 14260 PRINT" DISQUE MAITRE."
  230. 14270 PRINT"UNITE DISQUE #2 [146]: VAUT DE 8 A 11."
  231. 14280 PRINT" CETTE UNITE CONTIENT LES DISQUES A "
  232. 14290 PRINT" CATALOGUER, LE FICHIER GLOBAL, ETC."
  233. 14300 PRINT"UNITE DISQUE (DEFAUT)[146]: VA
  234. 14310 [153]" CETTE UNITE PEUT CORRESPONDRE A"
  235. 14320 [153]" A L'UNITE #1 OU #2.  C'EST CETTE VALEUR";
  236. 14330 [153]" QUI EST UTILISEE POUR DETERMINER"
  237. 14340 [153]" L'UNITE DE DISQUES SUR LAQUELLE VA"
  238. 14350 [153]" S'EFFECTUER LES OPERATIONS DE COMMANDES";
  239. 14360 [153]" SUR DISQUE QUI N'IMPLIQUENT QU'UNE"
  240. 14370 [153]" SEULE UNITE DE DISQUES."
  241. 14380 [141]61160
  242. 14400 [153]"LOADCAS #1WAIT: ON NE POSSEDE QU'UNE SEULE"
  243. 14410 [153]" UNITE DE DISQUES.  ALORS, LES VALEURS"
  244. 14420 [153]" DES TROIS PARAMETRES DOIVENT ETRE"
  245. 14430 [153]" EGALES A LA VALEUR PHYSIQUE DE L'UNITE,";
  246. 14440 [153]" NORMALEMENT 8."
  247. 14450 [153]"CAS #2WAIT: ON POSSEDE DEUX UNITES"
  248. 14460 [153]" DE DISQUES.  ALORS, LES VALEURS"
  249. 14470 [153]" ASSIGNEES AUX UNITES #1 ET #2 DOIVENT"
  250. 14480 [153]" ETRE DIFFERENTES.  SI LES VALEURS"
  251. 14490 [153]" PHYSIQUES SONT EGALES,  IL FAUDRA"
  252. 14500 [153]" REDEFINIR CELLES-CI LOGIQUEMENT."
  253. 14510 [153]" CETTE OPERATION EST TRES SIMPLE:"
  254. 14520 [153]" APRES AVOIR CHOISI LES VALEURS POUR LES";
  255. 14530 [153]" UNITES #1 ET #2, ON ASSIGNE A LA VALEUR";
  256. 14540 [153]" DEFAUT, LA VALEUR PHYSIQUE COMMUNE AUX"
  257. 14550 [153]" DEUX UNITES DE DISQUES (PROBABLEMENT 8)";
  258. 14560 [153]" ET ON CHOISIT L'OPTION CHANGER # UNITE"
  259. 14570 [153]" DE DISQUESWAIT.  IL SUFFIT ALORS D'OUVRIR"
  260. 14580 [153]" LES UNITES DE DISQUES DANS L'ORDRE"
  261. 14590 [153]" DEMANDE PAR LE PROGRAMME."
  262. 14900 [141]61160:[142]
  263. 15160 [153]" LOADPARAMETRES DU FICHIER GLOBALSTOP: "
  264. 15180 [153]"ON SELECTIONNE UN PARAMETRE AVEC"
  265. 15190 [153]"SWAIT CE QUI CORRESPOND A OUISTOP.
  266. 15220 PRINT"ON L'ENLEVE DE NOTRE SELECTION AVEC D[146]."
  267. 15230 PRINT"EN PESANT SUR [149]RETURN[144] NOUS RETOURNONS"
  268. 15240 PRINT"AU MENU PRECEDENT."
  269. 15300 PRINT"5 CHAMPS PEUVENT ETRE SELECTIONNES."
  270. 15310 PRINT"NOM DU FICHIER[146]: DE 1 A 16 CARACTERES."
  271. 15320 PRINT"  LES CARACTERES (160) DE FIN SONT
  272. 15330 [153]"  EXCLUS."
  273. 15350 [153]"IDWAIT: ID DU DISQUE, TOUJOURS 2 CARACTERES."
  274. 15360 [153]"CODEWAIT: CODE ASSIGNE PAR L'USAGER AU"
  275. 15370 [153]"  DISQUE: 1 A 5 CARACTERES."
  276. 15380 [153]"NOMBRE DE BLOCSWAIT: 3 CARACTERES"
  277. 15390 [153]"  REPRESENTANT LE NOMBRE DE BLOCS PRIS"
  278. 15400 [153]"  PAR LE FICHIER."
  279. 15410 [153]"TYPE DE FICHIERWAIT: 1 CARACTERE DONT LE"
  280. 15420 [153]"  CODE REPRESENTE LE TYPE DE FICHIER "
  281. 15430 [153]"  (VOIR LIVRE DU 1541).  LES 4 TYPES DE"
  282. 15440 [153]"  FICHIERS SONT: PRG, REL, USR ET SEQ."
  283. 15450 [141]61160:[142]
  284. 15500 [153]"LOADCREATION D'UN FICHIER GLOBALWAIT"
  285. 15510 [153]"LORSQUE LES CHAMPS A ENVOYER SONT"
  286. 15520 [153]"CHOISIS ON PEUT ALORS CREER LE FICHIER "
  287. 15530 [153]"GLOBAL.  AVEC UNE SEULE UNITE DE DISQUE"
  288. 15540 [153]"LE FICHIER GLOBAL S'ECRIRA SUR LE DISQUE";
  289. 15550 [153]"MAITRE.  AVEC DEUX UNITES DE DISQUES, CE";
  290. 15560 [153]"FICHIER S'ECRIRA SUR L'UNITE #2."
  291. 15570 [153]"SI ON NE DESIRE SELECTIONNER QU'UNE"
  292. 15580 [153]"PARTIE DES DIRECTOIRES POUR CREER LE"
  293. 15590 [153]"FICHIER GLOBAL, IL FAUT AU PREALABLE"
  294. 15600 [153]"UTILISER L'OPTION MODIFICATION DES "
  295. 15610 [153]"PARAMETRESSTOP.  ON MODIFIERA ALORS LES
  296. 15620 PRINT"VALEURS DES FICHIERS DE DEPART ET
  297. 15650 [153]"DES FICHIERS DE FIN AUX VALEURS "
  298. 15660 [153]"DESIREES QUI SONT CALCULEES A PARTIR DE"
  299. 15670 [153]"LA LISTE DES DIRECTOIRES DONT LA"
  300. 15680 [153]"VALEUR INITIALE EST 0.  UNE VALEUR DE "
  301. 15690 [153]"FIN SUPERIEURE AU NOMBRE DE DIRECTOIRES"
  302. 15700 [153]"EST RAMENEE A SA PLUS GRANDE VALEUR "
  303. 15710 [153]"POSSIBLE."
  304. 15720 [141]61160
  305. 15730 [153]"LOADMISE EN ORDRE DU FICHIER GLOBAL:STOP"
  306. 15750 [153]"SI ON POSSEDE DEUX UNITES DE"
  307. 15760 [153]"DISQUES, LE FICHIER INITIAL SE TROUVERA"
  308. 15770 [153]"SUR L'UNITE #2, TANDIS QUE LE FICHIER "
  309. 15780 [153]"ORDONNE SERA CREE SUR L'UNITE #1."
  310. 15790 [153]"LE TRI SE FERA DE FACON ALPHABETIQUE"
  311. 15800 [153]"ASCENDANTE BASE EN PREMIER LIEU SUR LE"
  312. 15810 [153]"NOM DU FICHIER."
  313. 15815 [141]61160
  314. 15820 [153]"LOADIMPRESSION D'UN FICHIER GLOBALSTOP"
  315. 15840 [153]"IL FAUT S'ASSURER QUE L'IMPRIMANTE
  316. 15850 PRINT"SOIT OPERATIONNELLE.  LE PROGRAMME"
  317. 15860 PRINT"NOUS DEMANDE LE NOMBRE DE CHAMPS "
  318. 15870 PRINT"(PARAMETRES) PAR RECORD.  DEPENDANT"
  319. 15880 PRINT"DES PARAMETRES CHOISIS LORS DE LA"
  320. 15890 PRINT"CREATION DU FICHIER GLOBAL, CE NOMBRE"
  321. 15900 PRINT"VARIE ENTRE 1 ET 5.  L'IMPRESSION DU"
  322. 15910 PRINT"DIVERS CHAMPS COMMENCE AUX COLONNES:"
  323. 15920 PRINT"0,16,32,48 ET 64 (VALEURS MODIFIABLES)"
  324. 15990 GOSUB61160:GOTO3000
  325. 16000 PRINT"[147][151]PARAMETRES[144]"
  326. 16010 PRINT"LES SOUS-OPTIONS SONT:"
  327. 16020 PRINT"- RETOUR AU MENU PRINCIPAL
  328. 16030 [153]"- PARAMETRES GENERAUX
  329. 16040 PRINT"- PARAMETRES DU FICHIER RELATIF
  330. 16050 [153]"- PARAMETRES DE TABULATION LORS DE
  331. 16060 PRINT"  L'IMPRESSION DU FICHIER GLOBAL."
  332. 16070 PRINT"- COULEUR DES MESSAGES.
  333. 16080 [153]"- PARAMETRES DU FICHIER GLOBAL
  334. 16500 GOSUB61160
  335. 16520 GOSUB 14200:GOSUB 13600
  336. 16530 PRINT "[147]COULEURS DES MESSAGES"
  337. 16580 PRINT"- PARAMETRES DU FICHIER GLOBAL
  338. 16590 [153]"ON PEUT MODIFIER LES ASSIGNATIONS DES"
  339. 16600 [153] "COULEURS DE SORTE QUE LE NOIR DEVIENNE
  340. 16610 PRINT"BLANC ET QUE ROUGE DEVIENNE BLEU, ETC."
  341. 16620 GOSUB 61160:GOSUB 15160
  342. 16900 GOTO3000
  343. 17000 PRINT"[147]IMPRESSION[144]"
  344. 17010 PRINT"SI ON DESIRE IMPRIMER SUR UNE IMPRIMANTE";
  345. 17020 PRINT"IL FAUT UTILISER L'OPTION SUIVANTE DU"
  346. 17030 PRINT"MENU PRINCIPAL: SELECTION: ECRAN / "
  347. 17040 PRINT"IMPRIMANTE[144].  CETTE OPTION NOUS PERMET"
  348. 17050 PRINT"DE CHOISIR L'ECRAN OU L'IMPRIMANTE COMME";
  349. 17060 PRINT"UNITE D'IMPRESSION.  CETTE OPTION EST"
  350. 17070 PRINT"EST ACTIVE LORS DES OPERATIONS"
  351. 17080 PRINT"SUIVANTES: LISTE DES DIRECTOIRES,"
  352. 17090 PRINT"LISTE D'UN DIRECTOIRE SPECIFIQUE,"
  353. 17110 PRINT"LISTE DES DISQUES AVEC UN MINIMUM OU UN"
  354. 17120 PRINT"MAXIMUM DE BLOCS LIBRES, LISTE DES ID ET";
  355. 17130 PRINT"RECHERCHE D'UN FICHIER SPECIFIQUE. "
  356. 17135 GOSUB61160
  357. 17140 PRINT"[147]L'OPTION IMPRESSION D'UN FICHIER[144]"
  358. 17150 PRINT"ECRIT TOUJOURS SUR L'IMPRIMANTE"
  359. 17160 PRINT"QUELLE QUE SOIT L'UNITE D'IMPRESSION"
  360. 17170 PRINT"CHOISIE PAR DEFAUT.  SI VOUS EPROUVEZ "
  361. 17180 PRINT"DIFFICULTES A VOUS SERVIR DE"
  362. 17190 PRINT"L'IMPRIMANTE, VERIFIEZ CECI:"
  363. 17200 PRINT"1. TOUS LES CABLES DE L'IMPRIMANTE SONT"
  364. 17210 PRINT"   BRANCHES ET CELLE-CI EST OUVERTE."
  365. 17220 PRINT"2. LE NUMERO DE L'UNITE ET L'ADRESSE"
  366. 17230 PRINT"   SECONDAIRE SONT BIEN CHOISIES DANS"
  367. 17240 PRINT"   L'OPTION MODIFICATION DES PARAMETRES[144]."
  368. 17250 PRINT"3. L'IMPRIMANTE EST EN MODE INACTIF:"
  369. 17260 PRINT"   FERMER ET RALLUMER CELLE-CI."
  370. 17500 GOSUB61160:GOTO3000
  371. 18000 PRINT"[147][154]AUTRES[144]"
  372. 18010 PRINT"RETOUR AU BASIC[144]:  CETTE OPTION NOUS"
  373. 18020 PRINT"RAMENE AU BASIC.  AVANT DE SORTIR DU "
  374. 18030 PRINT"PROGRAMME, ON A LA POSSIBILITE DE SAUVER";
  375. 18040 PRINT"LE DIRECTOIRE MAITRE SUR DISQUE."
  376. 18050 PRINT"SI ON NE DESIRE PLUS RETOURNER AU BASIC,";
  377. 18060 PRINT"ON DOIT PESER SUR RESTORE[146], CE QUI NOUS"
  378. 18070 PRINT"RAMENE AU MENU PRINCIPAL.  SI ON EST"
  379. 18080 PRINT"SORTI DU PROGRAMME ACCIDENTELLEMENT"
  380. 18090 PRINT"ON PEUT Y REVENIR EN TAPANT SYS 2064[144]."
  381. 18100 PRINT"LISTE DES ID[144]: LA LISTE DES ID "
  382. 18110 PRINT"S'ECRIT TELLE QU'ON LA TROUVE DANS LE"
  383. 18120 PRINT"DIRECTOIRE MAITRE.  LES ID MULTIPLES"
  384. 18130 PRINT"S'IMPRIMENT LE NOMBRE DE FOIS QU'ILS SE"
  385. 18140 PRINT"RETROUVENT SUR LES DISQUES."
  386. 18500 GOSUB61160:GOTO3000
  387. 19000 PRINT"[147][156]AMELIORATIONS FUTURES[144]"
  388. 19010 PRINT"IL EST PARFOIS DESIRABLE DE CREER UN
  389. 19020 [153]"- LECTURE DIRECTE, SANS ENTREPOSAGE"
  390. 19030 [153]"- REMONTRER UN DIRECTOIRE SANS RELECTURE";
  391. 19050 [153]"RECHERCHE D'UN FICHIER SPECIFIQUEWAIT"
  392. 19060 [153]"- DEPASSER LA LIMITE DE 255 FICHIERS"
  393. 19070 [153]"- REMONTRER LA LISTE SANS REFAIRE "
  394. 19080 [153]"  L'OPERATION COMPLETE; PAR EXEMPLE,"
  395. 19090 [153]"  APRES AVOIR EXAMINE LA LISTE SUR "
  396. 19100 [153]"  L'ECRAN, ON POURRA ALORS LA FAIRE"
  397. 19110 [153]"  SORTIR SUR L'IMPRIMANTE EN CHANGEANT"
  398. 19120 [153]"  L'UNITE D'IMPRESSION."
  399. 19150 [153]"PARAMETRESWAIT"
  400. 19160 [153]"- MODIFICATION DE L'ORDRE DANS LEQUEL"
  401. 19170 [153]"  SE FAIT LES COMPARAISONS."
  402. 19180 [153]"- CHOIX DU TYPE DE FICHIER A ETRE "
  403. 19190 [153]"  CATALOGUE"
  404. 19500 [141]61160:[137]3000
  405. 20000 [153]"LOADCLRFICHIER GLOBALSTOP"
  406. 20010 [153]"IL EST PARFOIS DESIRABLE DE CREER UN
  407. 20020 PRINT"FICHIER SEQUENTIEL GLOBAL QUI COMPRENNE"
  408. 20030 PRINT"UNE LISTE CHOISIE DE NOMS DE FICHIERS."
  409. 20050 PRINT"LES PARAMETRES SERVANT A LA PRODUCTION
  410. 20060 [153]"DE CETTE LISTE SONT REDEFINISSABLES"
  411. 20070 [153]"A L'AIDE DE L'OPTION DE MODIFICATION
  412. 20080 PRINT"DES PARAMETRES DU FICHIER GLOBAL."
  413. 20090 PRINT"ON PEUT CHOISIR LES CHAMPS QUE L'ON
  414. 20100 [153]"DESIRE CONSERVER AINSI QUE LE TYPE"
  415. 20110 [153]"DE FICHIER.  LES SOUS-OPTIONS SONT:"
  416. 20120 [153]"- RETOUR AU MENU PRINCIPAL"
  417. 20130 [153]"- CREATION D'UN FICHIER GLOBAL."
  418. 20150 [153]"- MISE EN ORDRE DU FICHIER GLOBAL: UN "
  419. 20160 [153]"  TRI EST EFFECTUE ET UN NOUVEAU FICHIER
  420. 20170 PRINT"  GLOBAL EST CREE"
  421. 20500 GOSUB61160:GOSUB15160:GOTO 15500
  422. 21000 PRINT"[147][156]LISTES DIVERSES[144]"
  423. 21010 PRINT"LES LISTES QUI PEUVENT ETRE PRODUITES
  424. 21020 [153]"PAR LE PROGRAMME SONT LES SUIVANTES:"
  425. 21030 [153]"- LISTE DES NOMS DES DISQUES AVEC UN"
  426. 21040 [153]"  MINIMUM DE BLOCS LIBRES."
  427. 21050 [153]"- LISTE DES NOMS DES DISQUES AVEC UN"
  428. 21060 [153]"  MAXIMUM DE BLOCS LIBRES."
  429. 21070 [153]"- LISTE DES IDENTIFICATEURS DES DISQUES"
  430. 21080 [153]"- LISTE DES CODES DES DISQUES"
  431. 21090 [153]"- LISTE D'UNE SERIE DE DIRECTOIRES
  432. 21100 PRINT"- REMONTRE LE DERNIER DIRECTOIRE
  433. 21500 [141]61160:[137]3000
  434. 22000 [153]"LOADCLRCOMMENTAIRES:STOP"
  435. 22010 [153]"DES COMMENTAIRES PEUVENT ETRE ATTACHES
  436. 22020 PRINT"SOIT AUX DIRECTOIRES OU AUX FICHIERS.
  437. 22030 [153]"LES SOUS-OPTIONS SONT F7 SUIVI DE:"
  438. 22050 [153]"BD: VIDE LES COMMENTAIRES DU DIRECTOIRE
  439. 22060 PRINT"BF: VIDE LES COMMENTAIRES DU FICHIER.
  440. 22070 [153]"DD: SAUVE DIRECTOIRE MAITRE SUR DISQUE."
  441. 22080 [153]"DF: SAUVE COMMENTAIRES DANS LE FICHIER
  442. 22090 PRINT"    RELATIF SUR DISQUE.
  443. 22110 [153]"H : ECRAN D'AIDE.
  444. 22120 PRINT"K : VIDE LA LIGNE DU CURSEUR.
  445. 22130 [153]"L : ENLEVE LA LIGNE DU CURSEUR
  446. 22140 PRINT"PD: SAUVE COMMENTAIRES SUR DIRECTOIRE
  447. 22150 [153]"    EN MEMOIRE.
  448. 22160 PRINT"PF: SAUVE COMMENTAIRES SUR FICHIER
  449. 22170 [153]"    EN MEMOIRE.
  450. 22180 PRINT"RD: RETOUR A LA LISTE DESDIRECTOIRES.
  451. 22190 [153]"RF: RETOUR A LA LISTE DES FICHIERS
  452. 22200 PRINT"+ : PASSE AU FICHIER SUIVANT
  453. 22210 [153]"- : PASSE AU FICHIER PRECEDENT.
  454. 22220 PRINT"NOTE: FAIRE DES COPIES DE SECURITE DU
  455. 22230 [153]"DISQUE DE TRAVAIL AVANT DE SE SERVIR DE
  456. 22240 PRINT"CETTE OPTION."
  457. 22500 GOSUB61160:GOTO3000
  458. 23000 PRINT"[147][156]RECHERCHE D'UN FICHIER SPECIFIQUE[144]"
  459. 23010 PRINT"IL SUFFIT DE DONNER LE NOM DU FICHIER
  460. 23020 [153]"QUE L'ON DESIRE.  IL Y A DEUX SYMBOLES
  461. 23030 PRINT"QUE L'ON PEUT UTILISER POUR FAIRE UNE
  462. 23040 [153]"RECHERCHE DE FICHIERS AUX NOMS
  463. 23050 PRINT"SIMILAIRES: ? ET *.  LE SYMBOLE ?
  464. 23060 [153]"SIGNIFIE QUE L'ON NE TIENT PAS COMPTE
  465. 23070 PRINT"DE LA LETTRE A LA POSITION OU SE TROUVE
  466. 23080 [153]"?.  PAR EXEMPLE NO?ME VA CHERCHER TOUS
  467. 23090 PRINT"LES FICHIERS QUI DEBUTENT PAR NO ET
  468. 23100 [153]"DONT LES LETTRES 4 ET 5 SONT ME: NOMME
  469. 23110 PRINT"NORME SERAIENT TROUVES PAR NO?ME.
  470. 23120 [153]"LE SYMBOLE * SIGNIFIE QUE L'ON
  471. 23130 PRINT"RECHERCHE UN  FICHIER DONT LE NOM
  472. 23140 [153]"DEBUTE PAR LES LETTRES QUI PRECEDENT *.
  473. 23150 PRINT"PAR EXEMPLE TES* SIGNIFIE QUE L'ON
  474. 23160 [153]"CHERCHE TOUS LES FICHIERS DONT LES 3
  475. 23170 PRINT"PREMIERES LETTRES SONT TES.
  476. 23180 [153]"ON PEUT LIMITER LA RECHERCHE EN SE
  477. 23190 PRINT"SERVANT DE L'OPTION MODIFIANT LES
  478. 23200 [153]"PARAMETRES:  ON PEUT CHOISIR LA GAMME
  479. 23210 PRINT"DES DIRECTOIRES FOUILLES"
  480. 23500 GOSUB61160:GOTO3000
  481. 24000 PRINT"[147][156]OPTIONS SPECIALES[144]"
  482. 24010 PRINT"- RETOUR AU MENU PRINCIPAL
  483. 24020 [153]"- VIDE DIRECTOIRE MAITRE EN MEMOIRE:
  484. 24030 PRINT"  N'EFFACANT PAS CELUI SUR DISQUE.
  485. 24040 [153]"- ALLOUE LE BAMREC: CETTE OPTION NE
  486. 24050 PRINT"  DEVRAIT JAMAIS SERVIR.  LE BAMREC
  487. 24060 [153]"  CONTIENT L'ALLOCATION DES RECORDS.
  488. 24070 PRINT"  EN CAS DE 'BUGS' DANS LE PROGRAMME
  489. 24080 [153]"  CETTE OPTION PEUT PARFOIS ETRE
  490. 24090 PRINT"  UTILISEE.
  491. 24100 [153]"- SAUTER A L'ADRESSE $C000:SI UN
  492. 24110 PRINT"  MONITEUR OU UN PROGRAMME DE L'USAGER
  493. 24120 [153]"  SE TROUVE EN MEMOIRE A CETTE ADRESSE
  494. 24130 PRINT"  IL SERA EXECUTE.  CECI PEUT SERVIR
  495. 24140 [153]"  A RECUPERER L'INFORMATION EN MEMOIRE
  496. 24150 PRINT"  EN CAS DE PROBLEMES GRAVES AVEC LE
  497. 24160 [153]"  PROGRAMME.  POUR RETOURNER AU CATALO-
  498. 24170 PRINT"  GUE: SYS (2064) OU JMP $0810.
  499. 24180 [153]"- RETOUR AU BASIC.  SI ON CHANGE D'IDEE
  500. 24190 PRINT"  ET QU'ON DESIRE REVENIR AU PROGRAMME:
  501. 24200 [153]"  SYS(2064) ET ON CHOISI L'OPTION DE NE
  502. 24210 PRINT"  PAS INITIALISER LA MEMOIRE."
  503. 24500 GOSUB61160:GOTO3000
  504. 25000 PRINT"[147][156]CHOIX: ECRAN/IMPRIMANTE[144]"
  505. 25010 PRINT"- RETOUR AU MENU PRINCIPAL
  506. 25020 [153]"- ECRAN: L'IMPRESSION SE FERA A
  507. 25030 PRINT"  L'ECRAN.
  508. 25040 [153]"- IMPRIMANTE: L'IMPRESSION SE FERA SUR
  509. 25050 PRINT"  L'IMPRIMANTE.  LES VALEURS DE DEFAUT
  510. 25060 [153]"  POUR L'IMPRIMANTE SONT MODIFIABLES.
  511. 25500 GOSUB61160:GOTO3000
  512. 26000 PRINT"[147][156]LIT DIRECTOIRE D'UN DISQUE[144]"
  513. 26010 PRINT"  LA LISTE DES FICHIERS APPARAITRA SUR
  514. 26020 [153]"L'ECRAN (OU L'IMPRIMANTE) MAIS NE SERA
  515. 26030 PRINT"PAS AJOUTEE AUX DIRECTOIRES SUR DISQUE.
  516. 26040 [153]"CETTE OPTION PEUT SERVIR A VISIONNER LE
  517. 26050 PRINT"CONTENU DES DISQUES.  POUR PASSER D'UNE
  518. 26060 [153]"PAGE A L'AUTRE ON SE SERT DES CLES DU
  519. 26070 PRINT"CURSEUR.  EN PESANT SUR RETURN[146] ON
  520. 26080 [153]"RETOURNE AU MENU PRINCIPAL.
  521. 26170 GOSUB61160:GOTO3000
  522. 27000 PRINT"[147][156]MEMOIRE[144]"
  523. 27010 PRINT"  CETTE OPTION SERT A VERIFIER
  524. 27020 [153]"L'OCCUPATION DE L'ESPACE MEMOIRE PAR
  525. 27030 PRINT"LES DIFFERENTES SECTIONS.
  526. 27040 [153]"LA PREMIERE LIGNE NOUS INDIQUE LE
  527. 27050 PRINT"DE DIRECTOIRES EN MEMOIRE.  LA
  528. 27060 [153]"LA DEUXIEME LIGNE NOUS REVELE LES
  529. 27070 PRINT"POSITIONS DE DEBUT (ENVIRON 27200) ET
  530. 27080 [153]"DE FIN DE LA LISTE DES DIRECTOIRES.
  531. 27090 PRINT"L'ESPACE MAXIMAL QUI PEUT ETRE OCCUPE
  532. 27100 [153]"PAR CETTE LISTE EST DE 9728 OCTETS.
  533. 27110 PRINT"LA TROISIEME LIGNE NOUS INDIQUE LE
  534. 27120 [153]"NOMBRE DE FICHIERS DANS LE DERNIER
  535. 27130 PRINT"DIRECTOIRE LU EN MEMOIRE.  LA LIGNE
  536. 27140 [153]"SUIVANTE NOUS INDIQUE LES POSITIONS
  537. 27150 PRINT"DE DEPART ET DE FIN DE LA LISTE DES
  538. 27160 [153]"FICHIERS QUI PEUT OCCUPER 4106 OCTETS.
  539. 27170 PRINT"LA DERNIERE LIGNE NOUS INDIQUE LE
  540. 27180 [153]"NOMBRE DE RECORDS UTILISES DANS LE
  541. 27190 PRINT"FICHIER RELATIF, LA POSITION DU
  542. 27200 [153]"PROCHAIN RECORD A ETRE UTILISE, AINSI
  543. 27210 PRINT"QUE LE NOMBRE MAXIMUM DE RECORDS.
  544. 27270 [141]61160:[137]3000
  545. 61160 [153]"PESEZ SUR RETURN OU ENTREZ MOT DE PASSE";
  546. 61170 [161] A$:[139]A$[178]""[167]61170
  547. 61180 B[178][198](A$):[139]B[178]13[167]61200
  548. 61190 [139]B[178]3[167]A[178]1:[137]10
  549. 61200 [142]
  550. 62000 [151]53280,0:[151]53281,0
  551. 62005 [153]"LOADSTOPLOAD";[199](34);"CATALOGUE";[199](34);",8,1"
  552. 62010 [153]""
  553. 62020 [153]"RUN"[166]6)"CHARGEMENT DU PROGRAMMESTOP"
  554. 62030 [151]631,19:[151]632,13:[151]633,13
  555. 62040 [151]198,3:[162]
  556.